/***************************************************************************/
/* Procedimiento:  FormatoUnicoInsertar
/* Descripcion:   Insertar una fila en la tabla ediv2.FormatoUnico
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  FormatoUnicoInsertar(pnidDocumento NUMBER, pnidTipoSolicitud NUMBER, 
						pnidTipoTramite NUMBER, pnidTipo_Empresa NUMBER, pnidArea_Trabajo NUMBER, 
						pcantidad_Entregada NUMBER, pnidEmpresa NUMBER, pfecha_Entrega VARCHAR2, 
						pfecha_Actualizacion VARCHAR2, pfecha_Inicio_Vigencia VARCHAR2, pfecha_Fin_Vigencia VARCHAR2, 
						pentrega_Credencial VARCHAR2, ppatente VARCHAR2, pnombre_Area_Especifica VARCHAR2, 
						pidCredencial_Acuse_Recibo VARCHAR2, prazon_Social_Solicitante VARCHAR2, pempresa_Proveedora VARCHAR2, 
						pnombre_Acuse_Recibo VARCHAR2, pnombre_Responsable VARCHAR2, prepresentante_Legal VARCHAR2, 
						pmotivo_Actividad VARCHAR2, pobservaciones VARCHAR2, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO ediv2.FormatoUnico(nid, nidDocumento, nidTipoSolicitud, 
						nidTipoTramite, nidTipo_Empresa, nidArea_Trabajo, 
						cantidad_Entregada, nidEmpresa, fecha_Entrega, 
						fecha_Actualizacion, fecha_Inicio_Vigencia, fecha_Fin_Vigencia, 
						entrega_Credencial, patente, nombre_Area_Especifica, 
						idCredencial_Acuse_Recibo, razon_Social_Solicitante, empresa_Proveedora, 
						nombre_Acuse_Recibo, nombre_Responsable, representante_Legal, 
						motivo_Actividad, observaciones)
  VALUES               (seq_FormatoUnico.nextval, pnidDocumento, pnidTipoSolicitud, 
						pnidTipoTramite, pnidTipo_Empresa, pnidArea_Trabajo, 
						pcantidad_Entregada, pnidEmpresa, to_date(pfecha_Entrega,'DD/MM/YYYY HH24:MI:SS'), 
						to_date(pfecha_Actualizacion,'DD/MM/YYYY HH24:MI:SS'), to_date(pfecha_Inicio_Vigencia,'DD/MM/YYYY HH24:MI:SS'), to_date(pfecha_Fin_Vigencia,'DD/MM/YYYY HH24:MI:SS'), 
						pentrega_Credencial, ppatente, pnombre_Area_Especifica, 
						pidCredencial_Acuse_Recibo, prazon_Social_Solicitante, pempresa_Proveedora, 
						pnombre_Acuse_Recibo, pnombre_Responsable, prepresentante_Legal, 
						pmotivo_Actividad, pobservaciones);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  FormatoUnico_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  FormatoUnico_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
